open Common
open Io
open Ftp_session
open Ftp_core

(******************************************************************************)

let rmglob session pattern =
  let reply_code, file_list = get_file_list session pattern in
  match reply_code.[0] with
  | '2' ->
      file_list
  | _ ->
      []

(******************************************************************************)

external glob_ml : string -> string array = "glob_c"

let glob pattern = glob_ml pattern
